home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Commandos22153405272009.psc / COMMANDOS II.files here / COMMANDOS II / Credits.frm < prev   
Text File  |  2008-01-28  |  4KB  |  122 lines
  1. VERSION 5.00
  2. Begin VB.Form Credits 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   5835
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   8415
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   389
  14.    ScaleMode       =   3  'Pixel
  15.    ScaleWidth      =   561
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    WindowState     =   2  'Maximized
  19.    Begin VB.PictureBox Picture1 
  20.       BackColor       =   &H00000000&
  21.       BorderStyle     =   0  'None
  22.       Height          =   4695
  23.       Left            =   0
  24.       ScaleHeight     =   313
  25.       ScaleMode       =   3  'Pixel
  26.       ScaleWidth      =   433
  27.       TabIndex        =   0
  28.       Top             =   0
  29.       Width           =   6495
  30.    End
  31. End
  32. Attribute VB_Name = "Credits"
  33. Attribute VB_GlobalNameSpace = False
  34. Attribute VB_Creatable = False
  35. Attribute VB_PredeclaredId = True
  36. Attribute VB_Exposed = False
  37. Dim TV As New TVEngine
  38. Dim FontNighthawk As TVBitmapParts
  39. Dim FontNighthawkB As TVBitmapParts
  40. Dim TextA As String, TextB As String
  41. Dim Screen2DImmediate As New TVScreen2DImmediate
  42. Dim TextureFactory As New TVTextureFactory
  43. Dim InputEngine As New TVInputEngine
  44.  
  45. Private Sub Form_Load()
  46. Me.Hide
  47. TV.SetDebugMode False
  48. DoEvents
  49. ShowCursor False
  50. TV.Init3DWindowedMode Picture1.hWnd
  51. Me.Show
  52.  
  53. Set FontNighthawk = New TVBitmapParts
  54. Set FontNighthawkB = New TVBitmapParts
  55. FontNighthawk.LoadBin App.path & "\Data\Gfx\nghthwk.tvbp"
  56. FontNighthawk.textureid = TextureFactory.LoadTexture(App.path & "\Data\Gfx\nghthwk.bmp", , , , FontNighthawk.Colorkey, False)
  57. FontNighthawkB.LoadBin App.path & "\Data\Gfx\nghthwk.tvbp"
  58. FontNighthawkB.textureid = TextureFactory.LoadTexture(App.path & "\Data\Gfx\nghthwkB.bmp", , , , FontNighthawk.Colorkey, False)
  59.  
  60. TextA = "CODED IN": TextB = "VISUAL BASIC 6.0": DrawNewText
  61. TextA = "USING": TextB = "DIRECTX 8.0": DrawNewText
  62. TextA = "AND": TextB = "TRUEVISION3D 6.2": DrawNewText
  63. TextA = "PROGRAMMING": TextB = "ZAID MARKABI": DrawNewText
  64. TextA = "COPYRIGHT": TextB = "(C) 2009": DrawNewText
  65. TextA = "EMAIL": TextB = "ZAIDMARKABI@YAHOO": DrawNewText
  66.  
  67. TimeStart = TV.TickCount
  68. Do
  69. DoEvents
  70. TimeNow = (TV.TickCount - TimeStart)
  71. If TimeNow > 3000 Then Exit Do
  72. TV.Clear
  73. Screen2DImmediate.ACTION_Begin2D
  74. Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 3), FontNighthawkB, " COMMANDOS", 2.5, 2.5, 1 - TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
  75. Screen2DImmediate.DRAW_TextureText 400, (Me.ScaleHeight \ 3), FontNighthawkB, "BY", 2, 2, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
  76. Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 2), FontNighthawk, "ZAID MARKABI", 2.5, 2.5, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
  77. Screen2DImmediate.ACTION_End2D
  78. TV.RenderToScreen
  79. Loop
  80. TimeStart = TV.TickCount
  81. Do
  82. DoEvents
  83. TimeNow = (TV.TickCount - TimeStart)
  84. If TimeNow > 3000 Then Exit Do
  85. Loop
  86. Close3D
  87. Unload Me
  88. Intro.Show
  89. End Sub
  90.  
  91. Private Sub DrawNewText()
  92. TimeStart = TV.TickCount
  93. Do
  94. DoEvents
  95. TimeNow = (TV.TickCount - TimeStart)
  96. TV.Clear
  97.  
  98. Screen2DImmediate.ACTION_Begin2D
  99. Screen2DImmediate.DRAW_TextureText 50, (Me.ScaleHeight \ 3), FontNighthawk, TextA, 2.5, 2.5, 1 - TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
  100. Screen2DImmediate.DRAW_TextureText 100, (Me.ScaleHeight \ 2), FontNighthawkB, TextB, 1.5, 1.5, TimeNow / 3000, 5, CSng(0), TV_TEXT_DIRECTION_LEFTRIGHT
  101. Screen2DImmediate.ACTION_End2D
  102.  
  103. TV.RenderToScreen
  104.  
  105. If InputEngine.IsKeyPressed(TV_KEY_ESCAPE) = True Then Exit Do
  106. If TimeNow > 3000 Then Exit Do
  107. Loop
  108. End Sub
  109.  
  110. Private Sub Form_Resize()
  111. Picture1.Width = Me.ScaleWidth
  112. Picture1.Height = Me.ScaleHeight + 40
  113. TV.ResizeDevice
  114. End Sub
  115.  
  116. Sub Close3D()
  117. Set Scene = Nothing
  118. Set TextureFactory = Nothing
  119. Set TV = Nothing
  120. ShowCursor True
  121. End Sub
  122.